home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t3.d64 / convert(new).l < prev    next >
Text File  |  2007-02-28  |  1KB  |  57 lines
  1. 9000 // BY PERRY BRIKLEY OF P B SYSTEMS
  2. 9010 PROC CONVERT(AN,REF ALPH$,REF NUMB) CLOSED
  3. 9020 Z:=ZONE
  4. 9030 ZONE 0
  5. 9040 DIM OLD$ OF 12
  6. 9050 ROW:=PEEK(214); COL:=PEEK(211)
  7. 9060 PC:=PEEK(646) //CURRENT PENCOLOR
  8. 9070 BC:=PEEK(53281)-240 //CURRENT BACKGROUND
  9. 9080 PENCOLOR BC //SAME AS BACKGROUND
  10. 9090 // NEXT CLEAR TOP 12 POSITIONS
  11. 9100 PRINT CHR$(19), //HOME CURSOR
  12. 9110 OPEN FILE 126,"",UNIT 3,READ
  13. 9120 INPUT FILE 126: OLD$
  14. 9130 CLOSE FILE 126
  15. 9140 PRINT "            ", //HOME-12 SPACES-HOME
  16. 9150 CASE AN OF
  17. 9160 WHEN 1 // CONVERT TO NUMBER
  18. 9170 IF ALPH$="" THEN
  19. 9180 ALPH$:="NV"
  20. 9190 ELSE 
  21. 9200 PRINT ALPH$,
  22. 9210 ENDIF 
  23. 9220 WHEN 2 // CONVERT TO STRING
  24. 9230 PRINT NUMB,
  25. 9240 WHEN 3 // CONVERT TO CHR$
  26. 9250 IF NUMB>=0 AND NUMB<=255 THEN
  27. 9260 PRINT CHR$(NUMB),
  28. 9270 ELSE 
  29. 9280 ALPH$:="NV"
  30. 9290 ENDIF 
  31. 9300 OTHERWISE 
  32. 9310 ALPH$:="NV" //NOT VALID
  33. 9320 ENDCASE 
  34. 9330 IF ALPH$<>"NV" THEN
  35. 9340 PULL'SCREEN(AN,ALPH$,NUMB)
  36. 9350 ENDIF 
  37. 9360 PENCOLOR PC //BACK TO ORIGINAL
  38. 9370 PRINT "",OLD$
  39. 9380 POKE 214,ROW //RESTORE CURSOR POS
  40. 9390 POKE 209,(1024+ROW*40) MOD 256
  41. 9400 POKE 210,(1024+ROW*40) DIV 256
  42. 9410 POKE 211,COL
  43. 9420 ZONE Z //RESTORE ZONE SETTING
  44. 9430 ENDPROC CONVERT
  45. 9440 //
  46. 9450 PROC PULL'SCREEN(AN,REF ALPHA$,REF NUMBER) CLOSED
  47. 9460 PRINT CHR$(19), //HOME CURSOR
  48. 9470 OPEN FILE 93,"",UNIT 3,READ
  49. 9480 CASE AN OF
  50. 9490 WHEN 1
  51. 9500 INPUT FILE 93: NUMBER
  52. 9510 WHEN 2,3
  53. 9520 INPUT FILE 93: ALPHA$
  54. 9530 ENDCASE 
  55. 9540 CLOSE FILE 93
  56. 9550 ENDPROC PULL'SCREEN
  57.